Imports capaLogica
Public Class VentanaEquipos

    Private codigoGrupo As Integer
    Private gestor As GestorEquipo

    Public Sub New(ByVal idGrupo As Integer)
        Me.InitializeComponent()
        Me.codigoGrupo = idGrupo
        Me.gestor = New GestorEquipo()
    End Sub

    Private Sub btnAgregar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAgregar.Click
        Dim nombreEquipo As String = InputBox("Introduzca el nombre del equipo", "Crear Equipo")
        If (nombreEquipo <> "") Then
            gestor.CrearEquipo(nombreEquipo, codigoGrupo)
            Me.CargarCombo()
        End If
        
    End Sub

    Private Sub VentanaEquipos_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.CargarEstudiantes()
        Me.CargarCombo()
    End Sub

    Private Sub CargarEstudiantes()

        Dim estudiantes As DataTable = gestor.LevantarEstudiantes(codigoGrupo)


        DataGridViewEstudiantes.DataSource = estudiantes
        With Me.DataGridViewEstudiantes.Columns.Item("idEstudiante")
            .HeaderText = "Carnet"
            .DisplayIndex = 1
        End With

        With Me.DataGridViewEstudiantes.Columns.Item("nombre")
            .HeaderText = "Nombre"
            .DisplayIndex = 2
        End With

        With Me.DataGridViewEstudiantes.Columns.Item("apellido1")
            .HeaderText = "Primer Apellido"
            .DisplayIndex = 3
        End With

        With Me.DataGridViewEstudiantes.Columns.Item("apellido2")
            .HeaderText = "Segundo Apellido"
            .DisplayIndex = 4
        End With

        With Me.DataGridViewEstudiantes.Columns.Item("correoElectronico")
            .Visible = False
            '.HeaderText = "Correo"
            '.DisplayIndex = 5
        End With
        'With Me.DataGridViewEstudiantes.Columns.Item("idEstudiante1")
        '    .Visible = False
        'End With
        'With Me.DataGridViewEstudiantes.Columns.Item("idGrupo")
        '    .Visible = False
        'End With

        
    End Sub

    Private Sub CargarCombo()
        ComboBoxEquipos.DataSource = gestor.LevantarEquipos(codigoGrupo)
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBoxEquipos.SelectedIndexChanged
        Me.CargarEstudiantesPorEquipo(ComboBoxEquipos.SelectedValue)
    End Sub

    Private Sub CargarEstudiantesPorEquipo(ByVal nombreEquipo As String)
        Dim estudiantes As DataTable = gestor.LevantarEstudiantesPorEquipo(codigoGrupo, nombreEquipo)

        'If (estudiantes.Rows.Count <> Nothing) Then
        DataGridViewEstudiantePorEquipo.DataSource = estudiantes
        With Me.DataGridViewEstudiantePorEquipo.Columns.Item("idEstudiante")
            .HeaderText = "Carnet"
            .DisplayIndex = 1
        End With

        With Me.DataGridViewEstudiantePorEquipo.Columns.Item("nombre")
            .HeaderText = "Nombre"
            .DisplayIndex = 2
        End With

        With Me.DataGridViewEstudiantePorEquipo.Columns.Item("apellido1")
            .HeaderText = "Primer Apellido"
            .DisplayIndex = 3
        End With

        With Me.DataGridViewEstudiantePorEquipo.Columns.Item("apellido2")
            .HeaderText = "Segundo Apellido"
            .DisplayIndex = 4
        End With

        With Me.DataGridViewEstudiantePorEquipo.Columns.Item("correoElectronico")
            .Visible = False
            '.HeaderText = "Correo"
            '.DisplayIndex = 5
        End With
        With Me.DataGridViewEstudiantePorEquipo.Columns.Item("idEstudiante1")
            .Visible = False
        End With

        'End If

    End Sub
	
	'HACK Esto fue agregado por ALE
    
    Private Sub btnRenombrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRenombrar.Click
        Dim v As New VentanaRenombrarEquipo(codigoGrupo)
        v.ShowDialog()
        Me.CargarCombo()
    End Sub

    Private Sub btnDerecha_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDerecha.Click
        Dim indexEstudiante As Integer
        Dim carnet As String

        'indexEstudiante = Me.DataGridViewEstudiantes.SelectedRows.Item(0).Index
        indexEstudiante = Me.DataGridViewEstudiantes.CurrentRow.Index
        carnet = Me.DataGridViewEstudiantes.Rows(indexEstudiante).Cells(0).Value

        Dim nombreEquipo As String = ComboBoxEquipos.SelectedValue

        gestor.RegistrarEstudiantePorEquipo(carnet, nombreEquipo, codigoGrupo)

        Me.CargarEstudiantesPorEquipo(nombreEquipo)
        Me.CargarEstudiantes()
        'Me.DataGridViewEstudiantes.Rows.RemoveAt(indexEstudiante)

    End Sub

    Private Sub btnIzquierda_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIzquierda.Click
        Dim indexEstudiante As Integer
        Dim carnet As String
        indexEstudiante = Me.DataGridViewEstudiantePorEquipo.CurrentRow.Index
        carnet = Me.DataGridViewEstudiantePorEquipo.Rows(indexEstudiante).Cells(0).Value
        Dim nombreEquipo As String = ComboBoxEquipos.SelectedValue

        gestor.DesasignarEstudiantePorEquipo(carnet, nombreEquipo, codigoGrupo)

        Me.CargarEstudiantesPorEquipo(nombreEquipo)
        Me.CargarEstudiantes()

    End Sub

    Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
        Me.Close()
    End Sub
End Class